home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_bas / mices / popmouse.bas < prev    next >
BASIC Source File  |  1988-04-16  |  2KB  |  66 lines
  1.   DECLARE SUB POPMOUSE(HEADER$,CHOICES%,SET%,ITEMS$(2),FRAME%,FORE%,BACK%,HFORE%,HBACK%,QUADRANT$,SHADOW%,CHOICE%)
  2.   DEFINT A-Z: KEY OFF: COLOR 7,0: CLS
  3.   DIM ITEMS$(5,6),PROMPTS$(6)
  4.   DIM MAXITEMS(5)
  5.  
  6.   LOCATE 8,10: PRINT "This is POPMOUSE - A routine used to select options from"
  7.   LOCATE 9,10: PRINT "several menu windows using the cursor keys or the mouse to"
  8.   LOCATE 10,10: PRINT "move a 'select bar'.  Selection is made by the Enter key"
  9.   LOCATE 11,10: PRINT "or the left mouse button."
  10.  
  11.   FOR S = 1 TO 10
  12.     CALL DELAY(1): A$=INKEY$: IF LEN(A$) <> 0 THEN S=10
  13.   NEXT S
  14.  
  15.  
  16.   ITEMS$(0,1)="  Demo Lists        ": MAXITEMS(0)=6: PROMPTS$(0)="Select Demo ..."
  17.   ITEMS$(0,2)="  Demo Directories  "
  18.   ITEMS$(0,3)="  Demo Menus        "
  19.   ITEMS$(0,4)="  Demo Calendars    "
  20.   ITEMS$(0,5)="  Demo Warnings     "
  21.   ITEMS$(0,6)="  End Demo          "
  22.   ITEMS$(1,1)="  POPLIST  ": MAXITEMS(1)=2: PROMPTS$(1)="Select List ..."
  23.   ITEMS$(1,2)="  TAGLIST  "
  24.   ITEMS$(2,1)="  POPDIR  ": MAXITEMS(2)=2: PROMPTS$(2)="Select Directory ..."
  25.   ITEMS$(2,2)="  TAGDIR  "
  26.   ITEMS$(3,1)="  BARMENU  ": MAXITEMS(3)=2: PROMPTS$(3)="Select Memo ..."
  27.   ITEMS$(3,2)="  MENU123  "
  28.   ITEMS$(4,1)="  CALENDAR  ": MAXITEMS(4)=3: PROMPTS$(4)="Select Calendar..."
  29.   ITEMS$(4,2)="  CALENDR3  "
  30.   ITEMS$(4,3)="  KEYCAL    "
  31.   ITEMS$(5,1)="  CAUTION  ": MAXITEMS(5)=2: PROMPTS$(5)="Select Flag ..."
  32.   ITEMS$(5,2)="  WARNING  "
  33.  
  34. Demo:
  35.     SET=0
  36.   POPMOUSE PROMPTS$(SET),MAXITEMS(SET),SET,ITEMS$(),4,0,7,15,1,"0",1,CHOICE
  37.   IF CHOICE=0 OR CHOICE=6 GOTO Endit
  38.   SET=CHOICE: GOSUB Dochoice
  39.   GOTO Demo
  40.  
  41. Dochoice:
  42.   POPMOUSE PROMPTS$(SET),MAXITEMS(SET),SET,ITEMS$(),4,0,7,15,1,"0",1,CHOICE
  43.  
  44.   LOCATE 21,10
  45.   PRINT "For set:";SET;";"
  46.   LOCATE 22,10
  47.   PRINT "The Item Number you selected was";CHOICE;ITEMS$(SET,CHOICE)
  48.   IF CHOICE=0 OR CHOICE=6 GOTO Clrmsg
  49.   LOCATE 23,10
  50.   PRINT "To end demo, press ESC key or right mouse button"
  51.  
  52.   SECONDS=5: CALL DELAY(SECONDS)
  53.  
  54.  
  55. Clrmsg:
  56.   LOCATE 21,10: CALL CLREOL
  57.   LOCATE 22,10: CALL CLREOL
  58.   LOCATE 23,10: CALL CLREOL
  59.  
  60.   RETURN
  61.  
  62. Endit:
  63.   SECONDS=5: CALL DELAY(SECONDS)
  64.  
  65.   END
  66.